LABEL 0000OO0OOPRIMEHOOW51U0CC EX OB JtC T/REAUi F ILL SCIURCEF ILE=SYMBOL/LOGUuT; EMD* 



OBJECT /READ 
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Comment: 
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T DISK MARK X v, 3. CO 02/07/74 
TITLE* B5500/85700 MARK xIV SYSTEM HElEASE 

F ILL. ID.? 3 T MttQUUJliUmi IAEZ^Ui.L-$XMSl\JUI UIAM 

THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 
AND IS NOT TO BE REPRODUCED* USED, UR DISCLOSED 
EXCEPT. .. I K-.A££nmMiLL-.AHH.._em£h A*L_LlC£i^£...aHL .U.PS1R _ 
WRITTEN AUThURWMlUN OF THE PATEM' DIVISION OF 
BURROUGHS CORPORATION* DETROIT* MICHIGAN 40232 



COPYRIGHT CC) 1971* 19^2 

AA320206 AA386657 
T D I S K _H A ._R _K X)t.*.2+.QQ 



% L_Q 

BEGIN 

real logname;xcontains name 

ED.RMAT P.R.IJiCIP-AL-.mQ*.A<u. 



BURRQUGHS COROPDRATION 

_ - ...10/.Q3Z7., 



_# _ 

* 

* 
..* 

* 

...* 

* 
** 



OF LOG 

. - -.'.U.iLAdjI.'i^M.^l MlA.um«*AJL*X2-i.U.-. 

FILEINF0(X16*2(X1*A1*A6)*X1*A3»X1*A5*X1*A1*"* ", A3* X i* "PRN 

A5*X1* A3*X1*F8#2*" #E a "* 14)* 
FILE I M.Q.LCX16* ..21X1* Al/ Aa)j XI * A 3* X 1 * A5* XI * A 1 *"*_•'_*_£ 3^ 

F8,2*X1*" #E - "*I4)* 
ELAPSECX15*"ELAPSED TIME. ISt "*14*" hQURS* "*I2* 

..-!'- MINUIE.S * .J^LfLA2i«-£Zmi!V&j£.U. 

FILET0TALS(X5*A3*": IDT ="*F12.2*"* 
PERCH*" JOBS RUNMNG M *F7.2* M X OF TIM£. ! 
.KAMEf CI.7J. 



*E 
•)* 



*"*I5)* 



TIM ETOTALSC" TOTAL" *A6*Fl2. 2" . " ) > 
SWITCH FORMAT SYSTEM! s( "SYSTEM A") »( "SYSTEM 0")* 

- C , ASYS.IEM.C"J*C-"^Y.SI£M- 41"J.i _ __ _ _ 

SWITCH FORMAT SYSTOL **( "To F ALS FOR SYSTEM At " )* ("TOT AlS F R* ' sYs f E M B»" 

("TOTALS FOR SYSTEM C J" )*( "TOTALS FUR SYSTEM D:")J 
. -LABEL ...MSE.*.EXII#.aA£KJ _ 

ARRAY TOTAL C : 3* : 4 3 * FRUMT C > 1 6 ] * UN I TO T AL [ o : 3 , o : 33 3 ; 

AKRAY AC0:93*UNIT[0*333*L[0: 173; 
REAL SYSNO* 

ARRAY" TOUR CO: 163; '~ ~" '""'" " — ~ 

INTEGER ARRAY 0URC0U03* 
AJ?«AY ELAPTIME[QI33; 

ARRAY SCd: 1022]*ERRCPC0: 3*0": 33]J" " " " "" ~ 

ARRAY CO < 143 ; 

J-ABEL disklog; 

INTEGER HRS*MIN*SEC; " 

FILE SPO 11(1*10); 

log disk m system" "log" (1*5,3u)*_ 

out logout 1 (4*15); "~ "' ~ ~ * ~~ """' " 

type»i»n»8*cqunt*prev,j*sm* t* 
x*y*w; 



FILE 
FILE 
REAL 
REAL, 

LABEL F0UND17F0UND2J 

STREAM PROCEDURE SUPERMOvE (N* S*D H VALUE NJ 
_ BEGIN L0CAL_S_NJ 

DI «■ lcc sn; DI <■ DI + /* si 

di «• o; si * s; 

- - - D 5—L-ftL WPS i _ SJlCJLS _*_32_ttJlAJL_0_!L * 32 dDS) 

end; 



«■ LOC l\* SI «• Sl + 6*"" OS" 



chr; 



OOOGICOO 

ooouiico 

. .. .0.0.0.1} 11.01 
00001102 
00001103 

00.0.011.0 a 

00001105 

0000H06 

o.oo-oa 10-7 

00001108 
00001109 

.00.0.01200 

00UU2000 
00002500 
- .. Q.OQ.Q 30.Q.C. 
000040CO 
00004100 

Q-Q.PQ-42Q.Q 

00004300 
00005000 

QflOflSttQi. 

00006000 
00006500 

QQ.OJ16-fi.Qi3. 

00007000 
00007100 
OdDQ-7200 

)*O0O07300 
00007350 

.__ axmnAaofl- 

00009000 
00009050 

...qmosjlqjl.. 

00009200 
00009300 

Q..Q00940Q 

00009500 
00009600 
00.009 700 

00009800 
00009900 

o_op_ioooo_ 
boo I lobo 

00012000 
00012100 
OOOUOOO 
00015000 
0001 6000 
00017000 
00018000 
00019000 



STREAM PROCEDURE 
BEGIN. SI 

STREAM PROCEDURE 
BEGIN DI 

S TRE AM 

BEGIN 



MQVE(N*A*B); 
» At Dt » ft* 



value n; 

Jl5_t-JLJLIlS_EiifL 



CLEAR(A)* 

* a; si «• a; ds «• a lit 

PROCEDURE PATrrA.R); 



00020000 
00036000 
0Q037Q00 



OS * 14 WOS END, 



00038000 
00039000 

.-QQ.flj..9_iaa. 



end; 



00039200 

si«"A;di*b*si*si+3;ds«-2 qct;ds*3 oct;si*si+h;ds*2 qct;ds«-3 QCT;00039300 

■ ■- , 0QO3940 Q 
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INTEGER PROCEDURE NRCFDAYS> 

JSDETERMINES ELAPSED DAYS RETWEEN 2 uATFS ALLQfcUti FQR 
..flEfila.. ._ _ _ 

DEFINE S*QUr"[4]#*F*QU"r[9]#;* ST ' ART if : INISH DAT ES~ HESPEcfTVELY 

INTEGER SYR»FYR;X START&F I NI SH YEARS 
1 NlEMLR . S.D_AI S flUA 1 lilAR QEL.LlMAiL .JLA_T_S__1N_LLARI ii . F. INI S H DATE S 



CHANGE OF YEAR 

Ibcl) 



0121A1L 



SYR»«S,C18:63xie + S,[2/C6]; 
FYRl»F.C18t6]xlO+F.[2^S6]; 

.SDAi5±S.a.3LJii6.a * JLfiflL ±._SuX3.6±6_l_JLJU>. _. 

FDAYSl»r.C30»63xlOO+F,t36»6]xiO+F.t*2l6li 
NROFDAYSIaFDAYS-SDAYS +REALCSYR LS5 F YR)*£ 365+RE AL( S YR 

..END; 

stream procedure bustc l» a/ c> pkn ) ; 
value c'prn/ 

begin lo£al_ t> 

si»*l; ci *=l; 



00039500 
00039510 

...o.ao 3.95.20 

00039530 

00039540 
Jm.QJL95.5IL 



MOD 4 » 0))j 



OS <• 8 LIT "0"; 
SI,. .* Ai_.DI ...«-... U 
2£SI «■ SI + i; DI 

di * P1+2; 

lLl±5i -D-S_.. ..♦ 

DI + 31 DS ♦• 
SI**L0C 



OS ♦• 14 WDS; 

4- Df+>'V~DS~V 'c"hF(7 
OS «- 6 chr>; 

3 CHR> _ 

5 chr; 

Ci DS:=0EC;DSls5 



etc; oi«spi+2* 



01 + 6/ 

chr; 



US *• 2 ChR/ 



D.I.* 

DI «■ 

Ti»sn 

_.SJ1«JJ___ _._. 

si 4- si + 4/ ni «■ 
DI «■ 01 + 7; DS *■ 
end; 
stream proceduref i xca/8); 

BEGIN 

local t; si »a;di» b; _ __ 

si*-si+56;ds*-8 dec;t*-di;oi*-oi-8;ds»-7 fill;oi+t; 
ds*23 lit" disk segments used by "/ 

§l*AJL£l±M±±JJlS±Z_JttiEL!2JLI^^ 

ds«-5 LiT w for w ;si*si+4o;os*fl dec.;t*oi*ui*-oi*4;ds*3 fill; 

DI*TjDS*7 LIT" HOURS, ";DS*-3 DEC*T*Dl*DI*DI-3 JDS*2 FILL! 
&I±Ti.D_SA9..J.Ll". RlNin.E^rjJli*J-.J}£iLJJ*JlLiJ^*J3liiUl5*2.-f-LLLJ 

0i*t;ds*8 lit" seconds"; 
end; 

STREAM PR OCEDURE T I ME( A> B, \> Y ) > __ _ 

VALUE X*Y; 

BEGIN 
local t*v; 



00039560 
00039570 
-QO.0.i.95.aa 
00039590 
00039600 

.jQflfliSL61XL. 

00040000 
000^0100 
„Q Q04Q 2.Qj3. 
00040300 
00042000 

-O.0M3.qjio 

00044000 
00045000 
...H0046QQ-0.- 
00047000 
00048000 
_QQ0_4.exQ.CL ... 
00049000 
00049500 

-ooflsnofln. 

00050100 

00050150 
..D_Q_0S.G2Q_C__ 






sii»AJ dh*b; ds:*u lit 

DS»ai3 LIT" STARTED AT "> DS.S2 OEC> 

.qsj«2 dec; .h&i» lit !u:'J DS» S 2 DEO DS:«LH 



00050250 
00050300 

..JpJQ0jQ35fl- 
00050400 
00050450 

..00Q5.Q5X1.O. 
00050550 
00050600 

00050610 

00050620 
00050630 

JLQJL5C16J-_L_ 



ds i*2 dec; 

DSJ«5 CHR; DSJ*14 LIT" 
U M ■ JJ_I_. JMJLL .QSi__l__. '.. DLC 1 



DSIS6 LIT" CN 
SU = Si + 3; DS:«5 chr; 
Jii»JJL±li.J14l£6_£Hfll. 



DS1*3 LIT" *; 0S!s4 LIT"QN 
STOPPED AT " 
nSJiLiI_jM_?LL 






"; sn»si+3; 
; us»s2 dec; dsi»2 

us< *2 ma : 



00050650 

00050660 

.00050670 



dec; 



DSI«8 LIT" 

end; xtimex 

-PR C E DMRX. JEAjBllJL, 
BEGIN 



t?=si; v»=di; si:=llc x; 

Si ss T; Si: = si + B; QS:*3 LIT' 
J_JSLi»iLJ_-_JL__i_"_i__ _ 



USER 



Si»«LQC Y; Sltssi+l; DSi«7 chR; 



00050660 
00050690 
00Q507QQ 

00050710 
00050720 

oo Q& Jzaj- 



READCL0G[B],5>A_*_ ); 

..BX"ILiJJL__ . _ _ 



end; 
procedure 

BEGIN 



oprtbcomment; 



00050740 
00050750 

Q0^.5.1fl.aO 

00051250 
00051500 

00052000 
00053000 
00053250 



T^ 
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Pi 
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STREAM PROCEDURE 0C(A'6*X)' 

VALUE B* 

BEGIN _ _ 

si«sa; dh*xj di:*di + iq; 
ds'*29 llt m operator comment* en 

. DSi.«2 ...DEC!.. Ml A2. DLL* 2.CDS.«.?.L..IT 



TEflED 
._»_»J\> 

ds;=4 lit" on ••; sh*luc a; sii=si+3 



at m ; 

0i.!*2._ 
; DS:s 



DE.CJJ 

5 chr; 



end; 



LAI0JULU2JJ.. 



WRlTE(LOGOUTtDBLl); WRITEC LUGOUTCOBL 
WRITE t LOGOUT tDBL 3 'SYSTEM[SY3N0n; 

Q_UB_[.QJJ_?.A_Ii J_QUL iLfiaOGi 

0URCl3:=(ACl] DIV 3600) MOD 60; 
0URC2]}*(A[1] Ulv 60) MUD cO; 

CLLEARXLli - - - - - 

0C(0UR[0],AE2]#LC*J)J 
II«A[3]J 

f R... M § P. 5J.EP_ 5 _ UN I Ii. 
BEGIN IF N MCO 10 = 

BEGIN WRlTECL0G0UU0fiLJ»17»L[*] 
C LE A . R LLl ,>.._ 

end; 
readit; 

MDYK 5*. AI0.3 rLXLN MOjl_l(Li...± 2JJ1 

end; 

wr itec logout c d3l]# !7flc* 3); 



]); 



.I...-D.O.- 

THtN 



end; 



stream procedure cwangenameca); 

BEGIN SII«AJDII«A;0I»»DI + W0S»«7 DEC EnO; 
.-!£._ LQG.NAME* - IHEM-RF AO C S BS l+UAMZE-tUl&MAME. U. 

changenameclogname); 

FILL LOG WITH LOG^AME^'SYSLOG "i 

JEJLL .EH.O.NJC*.J.,Jil.lH 

"OBJECT"*" ALGOL"*" COBOL"* 



PST 



IUT 



PTT 



: j ;: i. ".a "..*. .« ::.j> 

"EOJ "*"SYN er"*"ds-ed 
"XALGQL"*"BASIC 'V"TSPO|. 

JL1LL UN III*. 1. !LtU±_flj _ 

,, MTA","MTB% m MTC m * 
M MTD W # M MTE'% ,, HITF% 

_ 5MlM£iJUiLl!Li*Mll^i2. 



"*"ABQ 
"*"CLB 



RT % 

L68"; 



"BACKUP"*"FGRTRN% 



"MTL M *"MTM",»MTN"* 
,, MTP"*"MTK»%"MTS M * 
"MTT"* "QRA","DRB" * 
"DKA M * W DKB",«LPA*S 

m lpb"*"cpa m ,"cra m * 
" cRb"*" spo »> h ppa' % 
"pra"# ,1 ppb", ,, prb"* 

"OCA"* 

_0J 



0005350C 
00053750 

0.0.0.540.00 . 

00054250 
00054500 

QO_0.S 47.5.0 

00055000 
0C055250 

.00935.50.0. 

00055750 
00056000 
.0005625.0 
00056500 
00056750 

CLOU 3.Z0X1-Q . 

00057250 
00057500 

... QJJ0.5.7.Z5J}. 
00058000 
00058250 

QJD0.&JJ5XLa 

00058750 
00059000 

_.QM59.25-Q. 
00059500 
00059750 

0.0-04.000-0 

00060100 
00060200 

_O0iJ-4X334^- 
00060400 
00060500 

..JUlfl^iXLQii.. 
00062000 
00063000 

Q_O.0.640.0.fl... 

00064500 
OOU64600 

00Q6SQ O 

00066000 
00067000 

00068000 



00069000 

00070000 

■ QQOftPjPJL 



00072000 
00073000 

..aooiMoe 



00074100 
00074200 
000750 00 



CLEAR(TCUR); 

S« * 10211 SCSM]*0; 

b «■ y - 



SCSM+13*99999999999; 



00075100 
00076000 
00077000 



ROSE« 



readit; 

if (type := abs(a[0j))=3 
begin writeclug0utcqbl3 u* 



THEN 
RITECLGG0UTCDBL3 ); 



000/9000 
00080000 
00061000 



SYSNO »* AtOj. CI 123 J 

clearcd; 

M0VEC4*A[13'U03 >; 



00081050 
00081100 
00082000 



? 

3 
4 
6 

6 _ 
/ 

8 

9 

1(1 

|1 



||4 

I 

1 tii 

|16| 

'17 

il8 

f 9_ 
"20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

:io 

31 ~ 
32 

33 ; 

34 

35 

36 

37 ~ 

38 

3S 

40 

41 

42 

43 

44 

45 

46 

47 

18 

49 

50 

51 

52 

53 

54 

55 

56 



rladit; 

MOVE(b»AtOJ»L[43); 
JAB IT E C L Q § u I LOEtLXt^rSXLM l Si SM1U . 

mritecluq0u7ldblj»15»lc*j)i 
go to rose; 



XW3- 



if type = 99 then 
begin oprtrcommeimt; 

SJL..lQ_e_Q££l 



end; 

IF TYPE * 4 THEN GO TO ExlTi 



LLSi 



IF TYPE=6 THEN TYPE«-U ELSE 
IF TYPEs? THEN TYP£:=16 ELSE 

.If _T..YJP_EjEfl_ JiltJiLJiil- T B i&KJLilfi ....EL St. - 

IF TYPE«9 THEN TYPE»«15 ELSE 
IF TYPE-10 THEN TYPE«sl7 ELSE 

_I £ _ Ilf_E«a.l_.I±) EN. ...IXPXl *lili 

FOR 1*2 STEP 1 UNTIL 4 00 

BEGIN. TGTALtSYSNQ, i]IbA[IJ + TUTAL[SYSNO# JJJ 
_ _ _ ALU ?■■■.?. &JLLL Z_16_UJQj _ „ 

end; 
write(l0g0utc0bl3»principal*fr0nt£type3#. 

-FjiB-J— t- a-siEP- i mau—2-nxL— 

CF RGNTt 1 + 33* A[ 1 + 2] »F ROM t 1 + 6 I] j; 

n «■ Acn; 

reaoit;-- - - - - - - 

OURCOJJs AC 1 3 01 V 216000; 
OURCt 3 >»C AC13 OIV 3600) MOO 6C> 

.0ilRt2XLB J &lXi_B.lV.--6-C.-ML-D 6.CJ. _ _ 

0URI3]*=A[1]M0D 60/ 

OURM]JsAlO]l 

U R C 5IXE-AX21-Q-1V.- '£ 1 6 OOjQJ 



OUR[63»«(A[23 OIV 360OMQD 60; 
OURC73l«=AC23 DIV 60 MOD 60i 

Oilftlfl U g A r 2l_ MfliLfiJU _ 

OUR[9]l = At33,US30J; 
OUR[lO]» = FRONT[AC33,U6:2J+93; 
.JlHE(g iPC OJjL TDURL03MI 3 ^ tlUJIUAL.llJJL 



WRITE(LCGOUTtDBL3*17#TUURt*3); 
IF ELAPTlME[33t*{OU8C83-OuRt33) LSS THEN 
BEGIN 



00063000 
00084000 
JLQA.fl.4iQ.jQ. 
00085000 
00086000 
00087000- 



00067100 
00087200 
QQ0873QQ- 



00087400 
00088000 
00089000 



00089100 
000b9200 

00069400 

00069500 

_00QB9Afl.fl. 



00090000 

00091000 

.00092000 



00093000 
00094000 

-Q&O.9-5Q00- 



00096000 

00097000 

_Q Q 9 7 -4-0-Q- 



00097400 
00097410 
00097430 



00097432 
00097440 
0Q0 974 50 



00097460 
00097470 
0009 74 80. 



00097490 
00097500 
0009752Q 



00097630 
00097650 
00097652 



ELAPTlMEt3"JJsELAFTiME£3 3 + 60; 
CUR173I«0UR[7]-1* 



e nd; 



00097654 
00097656 
0-0976 58 



IF ELAPTlHEt23t«(OuRt73*OURC23) LSS THEN 
BEGIN 
ELAPTl HEt23t»ELAPTlHEC2 3 + 6 0) 



00097660 
00097662 
00097664 



olrc63 j=0urc6]-1^ 

end; 

if elapt im ee13 i - (our [6 j-qur [ 1 3 ) iss then 



00097710 
00097720 
00097722 



BEGIN 



ELAPTlME[13»»ELAPTlMECl3+60; 

qiRJ5...3«*mRm-lf 



end; 

IF 0UR[4] LSS 0UR[9] ThEM OURl 5 ] : = COR [ 5 3+24XNR0FDAYS; 

ELAPTIMECOiL=Q.URI53-guRCO]; _ 

EL APT I ME 1 2 3 t *EL APT I ME C 2 3 +EL APT I ME I 3 J /60 J 



00097724 
00097726 

0J3J.i7Z2J._ 

00097730 

00097732 

00 09773 4 

00097736 

00097738 

00097740 



FUR I :sQ STEP 1 UNTIL 2 DO 



2 

3 

- 

I 4 
5| 

e 

! 
9, 

10! 

11 

12 

13 

14 

lb 

16 

17 

18 

19 

20 

21 

22 

23 

24 



25 
26 
27 
28 
29 

30 

31 
32 
33 

:m 

36 

36 

37 ~ 

30 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 



WRlTFUCGOUTEOBU'tlAPSE, 
ELAPTIMEU J)J 

IF AI 3 J... U 6 .5.2 1=1 laLjy. IE k*X IhLbi 

BEGIN READIl; GO TO ROSE END; 
FOR J «• 1 STEP 1 UNTIL N DO 

a£fiiJi...aEADU.i- - - - 

BLSTCL*A#AC3J,Cll53#At33tC6:l73); 
IF TYPE « = Lt8 3 * THEN 

„ atfiUtL ...._ 



J0*TYPE3+AC43* 

.j+hzxl - 



5 DO 
lAUOaLIZJ-J- 

1* 

a....on. 



UNIT0TALtSYSN0*TYPE3S s UNlT0TALCSYSN( 
A[4]S8A[43/60; 

£RR0.Rj:SYSfclDjIi.Pi:iJ.sEEHUi5_tSY-SJSL0>TYP£. 

w : =LC6 ] , te: 30 j; 

XJ=L[63.[ 1 : 53i 

IF1Y-P4 LEO L6-LKLN-- - 

WRHE( LOGOUT tOBLl*FlLEINFUi 
FOR I»xO STEP 1 UNTIL 

UAl*XMlhLTLX2t££lAMM.X±< 

ELSE 

WR I TEC LOGOUT iOBL 3 'FILE INFO: 

FQ.R.-I.1.5.Q Sl££ L-JLfiLTJJL. 

Ltl3#X#UMTtTYPE3#A[43»LC7 3); 
END' 

GO to rose; 

DISKL0GJ WRITE( LOGOUT [DBL-I 3' WRITE( LOGOUT [CbL3 ); CLE ARC D); 

SY-S.N.O.-.S s_ Mai*.U..U.i.i - - 

MOVEC4*A[i3»L[03); 

readit; 

MO VEC5 * AXOJ-^-t- W -)-X — ... - - - . 

DATE(LC33#OCC3); 

IF LC63 LSS L[43 THEN 

BEGIN _ _ ._ _.. 

D[33 J*0[33-i; 
L[63tSL[634S184000* 

end; _ __ 

HRS*((CD[21-ot03 )x365>-D[1J+DC3J)x24 + (SEC*(L16J'LC<H > DI V 60 > 
DIV 36CC; 

MJN*£_S£C MOD 3600) DIV 60/ _ 

SEC«-SEC MOD 60; 

L[83l« HRS;LC93lsMiN;L[i03J=SEC; 

ElXCLIO3#_Dt013; 



00097742 
00097744 

...00Q.9 7 7-50. 
00097760 
00098000 

.000-99.000 

00100000 

00101000 

00A.O.20Q.D. 

00103000 

00104000 

001.04500 

0010497 5 

00104980 

001O5OO0.. 

00105200 

00105400 

..00105600- 
00105800 
00106000 

.. 0.01.0 A 200. 
00106400 
00108000 

.00.10.9000. 
00110000 
00110100 

0O110125 

00110150 

00110200 

_O«44O350~ 



00110300 
00110310 
-001 1031^ 



EXIT! 



WRITECL0G0UT[DBL3»SYST£M[SrSNG3); 
WRITE(L0G0UT#l5,DC*3)i 

GO TO rose; 
FOR 



SYSnO »■ STEP 1 UNTIL 3 DO IF TqTal ISYSN0#23 * THEN 
BEGIN 

WRITE! L£G_QU I CP AGE33; 



00110320 

00110330 

.001 1.0.3 A0. 
00110350 

00110400 

.00.110^5.0. 

00110500 

00110540 

001105 5_0_ 

00110560 

00110600 

00110650 



WRITECLCGOUTCOBL3/SYSTOLCSYSN03); 
F0R TYPE * 1 STEP 1 UfsTlL 32 00 
IF UNITOTALCSYSNO»TYPE3 * Th 



EN 



WRITECL0G0UTtDBL3*FILET0T 
UN I TOTAL CSYSNO* TYPE 3/60* 
W R ITECLC GOU T E DBL3*TIMET0TALS* 



ALS*UNITCTYPE3# 
ERRORt5YSNQ»TYPE33; 



00110700 
00111100 

ooi i ij_g 2_ 

00U200G 
00113000 
001 14Q0Q 
00115000 
00116000 
00117000 



END, 



FOR I 4- STEP 1 UNTIL 2 DO 

[FRONT CI + 33*TOTAL[SYSNO» 1+23/603); 



END 

eno;end, 



LAST CARD 
IF T. [26143 



ON 0CRD1NG TAPE 
t THEN 



00118000 
00119000 
00U910Q 
00139000 
99999999 
0174000Q 



LABEL OOO0OOO0OPRIMEKOO175100CC tx OB JECT /HE AU; F ILE SQURCEF Il.E«SYMBUL/L<JuUuT ; EnO<- 



OBJECT /READ 



: ? 

1, 

4" 

I 
6 

Si 

VI 

(I 

J 

toT 

121 

13 
14 
15 
16 
17 
18 
19 
JO 
21 



23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

13 

14 

35 

16 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



• • 



